4 REM   ***********************************************

6 REM   ** APP07.01  GENERATE SQUARE WAVE TRANSITION **

8 REM   ***********************************************

12 INPUT "NUMBER OF TERMS"; N

14 CLS

16 PRINT "TIME         AMPLITUDE"

18 PRINT

20 PI = 3.141592653589793#: P2 = 2 * PI: K1 = P2 / N: K2 = PI / (N * 8)

30 FOR I = 0 TO K1 STEP K2

32 Y = 0

40 FOR J = 1 TO N STEP 2

42 Y = Y + SIN(J * I) / J

44 NEXT J

50 PRINT USING "#.######_    "; I / PI; Y * 4 / PI

60 NEXT I

70 INPUT A$



